home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / kowin / emacsed.rc < prev    next >
Text File  |  1994-10-11  |  2KB  |  71 lines
  1. ;-----------------------------------------
  2. ; Emacs.rc for MicroEmacs 3.10 Ko ver.3
  3. ;    1990  8-24  by 小笠原博之
  4. ;    1991  5-06 for Ko-MicroEMACS K0
  5. ;    1991  8-30 for Ko-MicroEMACS K1
  6. ;    1991 12-09 for Ko-MicroEMACS K2
  7. ;    1993  5-22 for Ko-MicroEMACS K2.1
  8. ;    1994 10-11 for Ko-MicroEMACS K3
  9. ;-----------------------------------------
  10. ;● ED 風バインドバージョン●
  11. set $discmd FALSE
  12. print    "[ ED mode ]
  13. set $makbak    FALSE    ;.bak作成
  14. ;set $disnum    TRUE    ;行番号
  15. set $dispcr    TRUE    ;改行記号
  16. set $hscroll    TRUE    ;水平scroll
  17. set $sscroll    FALSE    ;smooth scrl
  18. set $hjump    8    ;水平scroll8字毎
  19. add-global-mode "EXACT"    ;検索時大文字小文字区別
  20. ; 縦方向に行単位でスクロールさせたい場合は set $sscroll TRUE にセットして下
  21. ; さい。
  22. ;●CMODE/WRAP設定●
  23. 40 store-macro
  24.     set %rdtmp &sin $cfname "."
  25.     !if &equ %rdtmp 0
  26.         !return
  27.     !endif
  28.     set %rdtmp &low &mid $cfname &add %rdtmp 1 5
  29.     !if &or &seq %rdtmp "c" &seq %rdtmp "h"
  30.         add-mode "cmode"
  31.     !endif
  32.     !if &or &seq %rdtmp "doc" &seq %rdtmp "txt"
  33.         add-mode "wrap"
  34.         set $fillcol 76
  35.     !endif
  36. !endm
  37. set $bufhook    execute-macro-40
  38. ;●行の２重化●
  39. 5 store-macro
  40.     set $discmd FALSE
  41.     8 set-mark
  42.     copy-line
  43.     beginning-of-line
  44.     next-line
  45.     yank
  46.     8 goto-mark
  47.     set $discmd TRUE
  48. !endm
  49. ;●tag jump●
  50. ;8 store-macro
  51. ; このマクロは各自用意して下さい。申し訳ない・・
  52. ;!endm
  53. ;●help●
  54. set %helpflag 0
  55. 9 store-macro
  56.     !if &equ %helpflag 0
  57.         split-current-window
  58.         find-file "emacsed.hlp"
  59.         10 resize-window
  60.         next-window
  61.         set %helpflag 1
  62.     !else
  63.         delete-other-windows
  64.         delete-buffer "emacsed.hlp"
  65.         set %helpflag 0
  66.     !endif
  67. !endm
  68. bind-to-key    goto-line    ^]
  69. ;●●
  70. set $discmd TRUE
  71.